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PPP PPP AAA AAA SSS 
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PPPPPPPPPPPP AAA ABB SSSSSSSSS 
PPPPPPPPPPPP AAA SSSSSSSSS 
PPP AAAAAAAAAAAAAAA SSS 
Ppp AAAAAAAAAAAAAAA SSS 
PPP AAAAAAAAAAAAAAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSSSSSSSSSSS 
PPP AAA AAA SSSSSSSSSSSS 
Ppp AAA SSSSSSSSSSSS 
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AAA AAA 
ABA AAA 


LLL 

LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


'] 
| 
| 
| 
| 
ne me me 
me mae ae 
me ne 
nero me 
me me 
ore mee 
ne me 
me me 
oO 
_- oOooooo000co0o 
oooooo0o°00o 
a 38 88 
oo oo 
oo oo 
oo oo 
oooooo00°0cKe0o 
oooooo°coeoo 
od rot 
ee aeons 
We a en eg 
a rn es 
od Cet 
ets ee 
wn MuWwMmw nn wnnn 
wn MWnnw wn Mnn 
nn “wn yn nn nwnwn wn 
nn uw nn ww nw wn 
nn un nw ww un mn 
mn “wn wn nn wn nn 
wm wn nn nw nw nn 
nn mn wn wn nn wn 
MuwMnw mn Munn nn 
MNMM nn MMM nm 
<= 
222222 E 
33 ete eae 
<= a ao 
< ds te ne ee 
i Oa a Os en dd de ed et 
en awe 
< << <2 aon! aoe 
22222 E 
aaaa a4 
aaaa ee 
aa aa a4 
aa aa ao 
aa aa ad ad 
aa aa a ad 
aa aa a4 
ao I | 
fS&oaaaeaaaaaaae aot I II III I I 


**F ILE®*1D**PAS103 


K 16 
PAS$IO_OUTPUT 3 PASCAL RMS Linkage 16-SEP-1984 AX/VM Pp 
VOLe 000 ° g-3é Pa} 98e 85: ee PASCAL. $2 SR tip PAS 1 1 a d) 


oOo 


FERRARA AAA EATER TEETER AAAAAAAARAAAEAAEAAERAERAEAAATRAAAEKAeee eee eee Te 


Std fg We 1978, 1980, 1982, 1984 B 
GITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE + FURNISHED al A LICENSE AND MAY BE USED AND conic’ 
ONLY IN ACCORDANCE WITH THE TERMS oF SUCH LICENSE AND WITH THE 


;* 4" 
:@ w 
* © 
:* ra 
:* © 
** t 
*® e 
-* + 
** Ss 
;* SON. NO TITLE fo” AND DUNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. ad 
*f * 
;* THE tae 5 IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE . 
;* AND SHOULD NOT * 
** wy 
** 2 
** 
** 
** 8 
** w 
* * 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR pte OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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Oooooooooooooooooooooooo 
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Paul Hohensee 


160c t80: Change PRN_CRLF so that Lines are printed: 
<LF> <textS <CR> 


NAA WN  O OD NA UNE WIN CO ODNAU EWN $0 ODNOAU EWN CO OONOAU EW OOONOUS Wh 


DVIPS BB BB BE BE AIAN NAINA PPI NONPININININPD 2 2 OO OO 


0 
000 TITLE PAS$IO OUTPUT ; PASCAL RMS Linkage 
838 -ident ‘'v04-000' 
000 TITIIIIIIIIITI TIL ILILLLLLTLTLLLT LLL T iii iii iti iiiie 
B38 FRAAAAA AAA A ARATE ARERR AAAAAAAAAATEREKEKAARAAAAARAEHAHAee eee 
;** ft 
000 see PASCAL RMS LINKAGE FOR VAX-11/780 tt 
000 pee Sssssssssssssssssssssssssssssess= rt 
00 pee t 
00 see ot 
000 3a VERSION V1.2 == JANUARY 1981 tt 
000 ;*f vt 
000 ;e DEVELOPED BY: Serene SCIENCE DEPARTMENT et 
000 ;ee UNIVERSITY OF WASHINGTON ae 
B38 3% SEATILE. WA 98195 wt 
3ae ef 
000 pee AUTHORS: MARK BAILEY, JOHN CHAN, HELLMUT GOLDE ae 
*a2e@ ee 
000 PITIIIIIIIIIIIIII ITIL ILL Litt r iii 
i FRAAA SAAR AAA AAA AAA AAAHARARAAAAEReARARAAeeeeeeeReReeeeee 
44 : Modified 08Jan80: 1 Otley oytput of 31 character scalar values in 
00 : ) Bugfix in PASSPUTBIN. Compiler was calling PASSWRITEOK 
0 $ twice under sone circumstances. 
00 3 aul Hohensee 
00 ; OSMay80: Fix PAS$URITESCAL to force output even if serge 
09 : field widt 
: : 
0 3 
0 3 


Susan Azibert 
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=MARAARAARARAAAAASAASLASASALALELESESESESE ESE SERRE RRS E RES R ESSERE ESS 2 
PARRA AAARAARAARAAAAAARASALALALLELELESER ESE ESE SERRE REE ERE EEE ESE RS EES | 


PAS$1O_ OUTPUT ; PASCAL RMS Linkage 16-SEP-1984 07:4 AX/VMS Macro Vv04-00 Page 2 
Y02.000 ° eet §5:93:5 PASCAL.SRCJPASIO3.MAR; 1 ° (1) 

: 13Jan81: Change all tests of status returns from RMS to 
; C RO,label and BLBS RO,lLabel from CMPL RO,#RMSSNORMAL; 
: BNEQ Label, etc. 

$8 3 Paul Hohensee 

$8 : 13Jan81: Change scalar output so element name is right truncated 
; for short field width, right justified and blank filled 

3 : for long field width. 

000 3 28Aug81: Use General addressing mode. Steve Lionel. 

Be5 ITIIIIIIIIIIIITI IIIT LIL IIIIITITITITiTititiTi Titi iii iiriiiiiiie 

O80 FEAR RARER AEE REAR EEEA AREA AATARAAARAAERREAHERe eee 

00 see ** 

00 pee ae 

009 pee SECTION 3 +e 

00 pee ae 

000 pee OUTPUT PROCEDURES ee 

000 pee * 

000 pee ee 

000 3 

000 

000 

000 


For any file variable the following storage is assumed: 


FSB: 


RAB: 


FAB: 


38(HEX) BYTES 


NAM: NOTE: The NAM block is allocated 
for the PASCAL logical files 


"INPUT’ and ‘OUTPUT’ only. 


bm sm a ne ae ee ne ne ee ne a) ee ne) ee) eee) we we) we ww lolol al al ol elalololelalololelelololeleleol ela a lslelal=| =a) 
A | DDO DODOO0S0 00000 OOO 0 0900 09 09 09 09 09 09 09 09 SIN INI NINN NINO AAA AOAAOOUM 
FAN OOD NAUE WIN SO OONAU EWN HOO ONAU EWN 3 OC OD NOAM SW OOONOAUS WI OWOO 


SOooooooooooooooooooooooooooocoono 
SOOoOCooooooooooooooooooooooooao 


a eh a tt a tt 
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PAS$1O_ OUTPUT 3; PASCAL RMS Linkage 16-SEP-1984 :07:4 AX/VMS Macro Vv04-00 Page 
v02-000 . tae 1 §5:955 PASCAL.SRCJPASIO3.MAR; 1 ° 
00 115 PY (62 ee oe ae ce ae mn om 2 Em oe eee ee 
88 116 : 
0 117 ; Macro options 
000 118 3 
000 11 -DSABL GBL ; no undefined references 
$08 : y -ENABL FPT 3; rounded arithmetic 
0000 1 ¢ ; External references 
000 123; 
000 124 -EXTRN PASSIOERROR 
000 125 eEXTRN PASSWRITEOK 
0000 1 § -EXTRN PASSBUFFEROVER 
0000 1 ~-EXTRN PASSWRITELN 
0000 128; 
0000 129 
0000 130 -EXTRN FORSCNV_OUT_D 
0000 131 -EXTRN FORSCNV-OUT“E 
0000 132 -EXTRN FORSCNV-OUT—F 
0000 13 -EXTRN FORSCNV-OUT~1 
0000 134 -EXTRN FORSCNVOUT—O 
0000 135 -EXTRN FORSCNV_OUT_2Z 
0000 136; : 
44 13 ; Provide definitions of system values 
0000 139 SDSCDEF 3; string descriptor definitions 
0000 140 $F ABDEF 
0000 141 SRABDEF 
0000 136 SRMSDEF ; for status code checking 
0000 143; . 
44 Vee ; PASCAL compiler constants 
0000 146 ; Note: The constants below with the names 'PASSC_XXXXX" are 
0000 147 ; used in the PASCAL compiler with the names ‘XXXXX'. If the 
0000 148 ; values in the compiler are altered then the values below 
i444 193 $ must be altered accordingly. 
0000 151 ; PASSC_DFLTRECSI = 257; ; default buffer size 
0000 13 : PASSC_NIL = 0 ; NIL pointer 
0000 153; PAS$SC_TRUE = 1 : TRUE 
0000 154 ; PASSC_FALSE = 0 ; FALSE 
0000 155 ; PASSC_NOCARR = 0 3; no carriage control 
0000 156; PASSC_CARRIAGE = 1 ; FORTRAN carriage control 
0000 157 ; PASS$SC_LIST = 2 ; LIST carriage control 
8808 138 : PASSC_PRN = 3 ; PRN carriage control 
itt 199 ; PRN carriage control constants 
0000 196 ; PRN_CRLF = *X8D01 ; PRN carriage control constant 
0000 16 ; for <LF> <text> <CR> 
0000 164 ; PRN_NULL = *x0000 ; PRN carriage control constant 
0000 165 : for no Carriage control 
0000 166; 
0000 167 ; File status block constants 
0000 198 : 
060000018 0000 18 FSBSC_BLN = “x18 ; FSB block Length 
44 170 FSBSV_OPEN = 5 
000 171 FSBSV-EOF = 1 


B 1 
PAS$10_ OUTPUT ; PASCAL RMS Link 16-SEP-1984 :07:4 M - 
ted L inkage g-35 =138 06:02 8 AX/VMS Macro Vv04-00 Page 


SEP=1984 PASCAL.SRCJPASIO3.MAR; 1 
0000 172; FSBSV_EOLN = 2 
4! 158 ; FSBSV_GET = 3 : 
000 «174 ; FSBSV_TXT = 4 ; textfile vias 
0000 175 ; FSBSV_RDLN = ; last access READLN 
0000 178 : FSBSV_DIR = § ; direct access flag 
0000 «(177 ; FSB$V_PUT = 
0000 178 ; FSBSV_INT = 8 ; internal flag 
0000 179; FSBSV_PRMT = 9 3 prones flag 
0000 180 ; FSB$V_OUTPUT = 10 ; OUTPUT file flag 
9000 181 ; FSBSV_ACTIN =_11 ; actual input flag 
0000 136 : FSB$V_DELZ =_30 ; delete file if empty 
st 183 ; FSBSV_INC = 31 ; included file thee 
000 184; FSB$B_CC = 6 ; carriage control byte offset 
0000 185 ; FSBSM_OPEN = “x0020 
0000 186 ; FSBSM_EOF = “x0002 
0000 187 ; FSBSM_EOLN = *x0004 
0000 788 ; FSBSM_GET = “x0008 
0000 189 ; FSBSM_PRMT = *x0200 
0000 190; FSBSM_PUT = *x00000080 
0000 191; FSBSM_TXT = “x0010 
0000 13 3 FSBSM_RDLN = “*x0001 
0000 193; FSBSM_DIR = *x00000040 
0000 194 ; FSBSM_INT = *x00000100 
0000 195 ; FSBSM_OUTPUT = *x0400 
0000 196 ; FSBSAM_ACTIN = “*x0800 
0000 197; FSBSM_DELZ = “*x40000000 
00CO 83198 ; FSBSM_INC = *x80000000 : : 
0000 199; FSBSL_CNT = 16 ; line count (textfiles) 
0000 200 ; FSBSL_INC = 20 ; ZINCLUDE block address 
0000000C 0000 201 FSBSL_LIM = 12 3 Linelimit 
90000008 0000 202 FSBSL_LST = 8 ; last word offset 
0000 203; FSBSL_PFSB = 20 ; related file FSB for proapt ing 
0000 204 ; for INPUT, has address of OUTPUT FSB 
0000 205 ; for OUTPUT, has address of INPUT FSB 
0000 206 ; (shares storage with include address 
0000 207 3; and direct access record 
0000 208 ; buffer address) 
0000 86209 ; FSBSL_REC = 20 ; record buffer address for 
0000 210 ; direct access (shares storage 
0000 211 ; with include address and related 
0000 sig : file FSB) 
0000 «213 ; FSBSL_STA = 4 ; status word offset 
0000 214; 
0000 $12 ; Character constants 
0000 16 ; 
0000 «217 ; TAB = “XO 
000000206 0000 18 SPACE = “X20 
0000 17 3 DOLLAR = “X24 
0000000C 00090 20 FORMFEED = “xC 
0000002A 0000 21 STAR = “X2A 
0090 S§ ; PLUS = “X2B 
0000 § : MINUS = *X2D 
000 63 POINT = xa 
see 090 5 ZERO = *Xx3 
00000031 B88 g ONE = “X31 
00 ; NINE = “X39 
0000 S32 AA = “X41 


aa 
PAS$10_ OUTPUT ; PASCAL RMS Linka EP=-1 AX/VMS M 4- 
bad hit ge = SE oie 138% bg: Ores S$ Macro V04-00 Page 


“SE PASCAL.SRCJPASIO3.MAR; 1 
0000 o 3 DD = *xX44 
Bp 0; EE = “x45 
000 132 ZZ = *XSA 
0000 ¢ 3 UNDERSCORE = “X5F 
0000 ; AA_SMALL = “X61 
0000 4: ZZ-SMALL = “X7A 
0000 ae 3 
0000 36 ; 
00000000 237 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
0000 238; 
0000 239 ; eee ee eee eee ee eeees 
0000 re : * * 
0000 41 ; * PASSPUTBIN * 
0000 stg ; * pas$putbinary * 
0000 243 ; * ¥ 
0000 244 ; THeREAAAT eee eee tees 
0000 245 ; 
0000 246 ; Argument offsets 
0000 267 ; 
0000 248 ; AP 3 number “f arguments (1) 
00090004 444 $38 FSB_DISP = 04 ; FSB address 
00cO 0000 251 -ENTRY PASSPUTBIN, “M<R6,R7> 
00000000'GF + 6C FA 0002 33¢ CALLG (AP), G*PAS$WRITEOK 
02 11 0009 25 brb newent 
00cO OO00B 254 entry pas$putbinary,“m<r6,r7> 
000D 255 newent: 
5 04 AC DO Q00D 256 MOVL FSB_DISPCAP) ,R6 ; R6 = address of FSB 
57 18 ® fi OO) 27 ADDL3 RG, RFSBSC_BLN,R7 ; R7 = address of RAB 
0015 258 $PUT RAB=R7 
04 A7 02 CA OOTE 259 BICL2 #RABSM TPT,RABSL_ROP(R7); clear TPT bit 
0550 £9 0022 260 BLBC RO,910 branch if error 
1€ A?) 00 90 0025 261 MOVB #RABSC_SEQ, RABSB_RAC(R7): make sure sequential 
04 0029 262 RET 
002A 263; 
002A 264 ; Write error 
002A 265 ; 
002A 266 910$: 
50 DD QO2A 267 PUSHL RO 
7E 78 A? QA ik 38 268 MOVZBL <RABSC_BLN+F AB$B_FNS>(R7) ,-(SP) 
70 A? =DD 0030 269 PUSHL <RABS$C~BLN+FABSL_FNA>(R7) 
00000000'GF 03 FB 0033 270 CALLS #3,G*PASS$IOERROR™ 
OO3A 271; 
poe si¢ : 
0000003A 7 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
OO3A 274; 
003A 75 3 eeeereretereerereeet 
OO3A 76 ; * * 
003A 277: *  PASS$PUTTXT  * 
OO3A 78 ; 2 * 
BORA 79 ; Reet ee eee eeeeeeee 
003A 80 ; 
003A 81 ; Increments the file pointer. If the pointer is positioned at the Last 
BOA Ht 3; position at entry time then the buffer has overflowed. 
BOR e 84 ; Argument offsets 
OO3SA 285 ; 


D1 
PASSIO. OUTPUT : PASCAL RMS Link ; 4 02:07:46 VAX/VM be PA’ 
v0e-000 ett oe Breer obe O5:ge135 LRASL AT eae pAMsOs maR:1 Fame (8, vo 


0058 
Argument offsets 


O3A 3 AP 3; number of arguments (1) 
00000004 3 ; FSB_DISP = 04 :"FS8 address | 
000c 003A Y sENTRY PASSPUTIXT sltcRe R3> 
00000000'GF 6C FA 00 ¢ LLG (AP), G*PASSWRITEOK | 
04 AC DO 004 MOVE FSB sec BCAP) « Re. : Re = address of FSB 
53 18 52 C1 0047 ADDL3 R2,¥FSB$C_BLN,R3 ; R3 = address of RAB 
08 A2 62 D1 0048 CMPL = (R Reese LST (R2) 
07 19 O04F BLSS 3; branch if ok 
QOOO0000'GF 6C FA B02) 1908 CALLG (AP),G*PASSBUFFEROVER ; buffer overflow 
62 de 0058 “INCL — (R2) 
04 OOSA RET 
005B ; 
0058 3 
wna -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 

0058 : RETREAT EEE 
0058 : * * 
0058 ; * PASSWRITECHAR * 
0058 3 * * 
Boca : AeA Kee eee eee 
00 ; 
0058 ; Writes a character to the file buffer. If the field width is less 
0058 ; than or equal to zero then zero field width is used (ie. no output). 


=) 

So 

uw 

wo 
WNAAA AININNNNAAI NANI AAA ANA ANNAN NANA NA AANWIIWInonononononononononororonory 
SP AAA  AWIWIWIWIWNIAIDINIPODININPINPONINID 2 2 PP OPO OO HF MODOC OOO OCOCOOCOOVOOOOOOWOOMWWMWo 


—OOON AWW (OOD NAUE WN $0 OONAU EWN O OD NAUE WN 0 OONAUE WWM -OOONOo 


0058 AP ; number of arguments (4) 
00000004 0058 FSB_DISP = 04 ; FSB address 
00000008 0058 CHR_DISP = 08 : character value (low order byte) 
0000000C 0058 FLD_DISP = 12 3: field width (by value) 
00000010 Ft NOT_DISP = 16 ; (not used) 
007c 0058 -ENTRY PASSWRITECHAR, “M<R2,R3, “s R5,R6> 
56 04 AC DO 005D MOVL FSB_DISP(AP) ,R6 R6 = address of FSB 
56 DD 0061 PUSHL R6 
O0000000'GF 01 #=FB 0063 CALLS #1,G*PASSWRITEOK : 
Oc AC 05 O06A TSTL FLD DISPCAP) ; check field width — 
28 6 OS open BLEQ 199$ 3 exit if zero field width 
Boer ; Check if enough room 
50 08 A6 66 C3 O06F SUBL3 (R6) ,FSBSL_LST(R6) RO ; RO = number of bytes left 
50 OC AC Di 0074 CMPL FLD_DISP(AP) ,RO 
0 15 0078 BLEQ 1108 
56 DD OO7A PUSHL R6 
00000000'GF 01 FB Boas 1108 CALLS #1,G*PASSBUFFEROVER ; buffer overflow 
OC AC D7 0083 DECL FLD_DISPC(AP) ; 
OC AC 20 00 “ 94 2c Bone MOVCS #0,0(R6),#SPACE,FLD_DISP(AP),a(R6); blank fill 
635 08 AC 1 28 OQO8F MOVCS #1,CHR_DISPC(AP),(R3) : put character 
66 3. =600 peas MOVL R3. (ROY ; update file pointer 
097 199$: 
04 0097 RET 
0098 : 


ee EEE [ 


PAS$IO_ OUTPUT 
—v04-000 


52 


00000000 ' GF 
oc 


04 
57 


57 


08 A2 


50 


00000000 ' GF 
OC AC 


67 


67 


04 BC 
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; PASCAL RMS Linkage 1 mi its 9 Og :02:6 AX/VMS Macro V04-00 
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Oo 
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WOOO O OOO O06 900000 09 09 09 00 00 SIN SI SIN NN NSD DAA A AA AO MII UU & EE 
DNAS WO ODNOAUS WN OOO NOAUS WN $0 ODO NOAU EWN (OO OONAUELS WN O OONOUES Wr 


-SEP=1 PASCAL. sR RCIP ASIO3.MAR; 1 


-PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
etetetererereererene 
* » 
*  PASSWRITESTR * 
. * 


LARRRARAASASLALAS SS @ | 


Writes a tig rigth justified with blank fill on the designated 
file. If the field width is smaller than the string Length the string 
is truncated on the right. 


Argument offsets 


AP ; number of arguments (4) 
FSB_DISP = 04 ; FSB address 

STR_DISP = 08 ; string address 

FLD_DISP = 12 ; field width by value) 
LEN_DISP = 16 ; string length (by value) 
-ENTRY PASSWRITESTR,“M<R2,R3,R4,R5,R7> 

oat FSB_DISP(AP) ,R2 ; R2 = address of FSB 
CALLS #1,G* =o 

TSTL FLD _DISP(AP) 

BLEQ 199$ : exit if field width <= 0 


Check if passing string value or address 
CMPL LEN_DISP(AP) , #4 
100 


BLEQ 
MOVL STR_DISPCAP) ,R7 ; R7 = address of string 
1008 BRB 101$ 
1018 MOVAL STR_DISP(AP),R7 ; R7 = address of string 
SUBL3 (R2),FSBSL ESTEAZ? RO 
CMPL FLD bISP< (AP), 
BLEQ 105$ 
PUSHL R2 
1058 CALLS #1,G*PASSBUFFEROVER ; buffer overflow 
SUBL3 LEN_DISPCAP),FLD_DISP(AP),R4; R4 = number of bytes to pad 
BGTRU 1108 ; branch if padding required 
a LB DISPCAP) , (R7),a(R2) ; write width characters 
1108: : need to blank fill R4 bytes 
MOVCS #0,@(R2),#SPACE,R4,a(R2); blank fill 
MOVC3 LEN_DISP(AP),(R7),(R3) ; write string 
1118: 3; update pointers 
MOVL R3,aFSB_DISP(AP) 
199$: 
RET 


-PSECT _PASS$CODE, PIC, EXE,SHR,NOWRT 


Page 8 PAY 
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PAS$10_ OUTPUT ; PASCAL RMS Link 16-SEP-1984 :07:4 AX/VM - 
v02-000 pai Breen 9be O5:4053 HAMS TOM TCR q) vO. 


SEP=1984 PASCAL. 


LAR RRRASASASASRL AS SO | 


. » 
*  PASSWRITESCAL * 
+ * 


Oo 
ooo 
a Ia Ben 


LARRRBRAASLARAAAAR SSDS | 


Write out a scalar value on the designated text file. If the field 

width is less than that required for the value, the value is left truncated 
If the field width is greater than that required fer the value, the 

value is right justified with blank fill. 


Argument offsets 


399 
400 
401 
OOF t86 
OOF 40 
OOF 404 
OOF 405 
OOF 406 
OOF 407 
OOF 408 
OOF 409 
pers 416 
OOF 411 
Bors alg 
OOF 41 AP ; number of arguments (4) 
00000004 O0F2 414 FSB_DISP = 04 ; FSB address 
00000008 OOF2 415 SCA_DISP = 08 ; scalar value (by value) 
Q000000C OOF2 416 FLD_DISP = 12 ; field width (by value) 
00000010 OOF2 417 NAM_DISP = 16 ; namelist address 
00000014 OOF2 418 MAX_DISP = 20 ; maximal ordinal value of 
COF2 419 ; scalar (by value) 
OOF2 420; 
OOF2 421 ; Constants 
OOF2 422 ; 
00000020 OOF2 423 namelen = 32 ; length in bytes of one entry in 
OOF2 424 3; mame List. 
OOF2 425; 
OOFC OOF2 426 -ENTRY PASSWRITESCAL,“M<R2,R3,R4,R5,R6,R7> 
56 §604 AC DO OOF4 427 MOVL FSB_DISP(AP) ,R6 ; R6 = address of FSB 
56 DD OOF8 428 PUSHL R 
O0000000'GF 01 FB OOFA 429 CALLS #1,G*PAS$WRITEOK 
57 20 08 AC C5 0101 430 MULL3 SCA_DISP(AP) ,#namelen,R7 
AC CO Bioe t33 ADDL2 NAM_DISPC(AP),R7 ; R7 = scalar name address 
pi94 $32 ; Calculate scalar name Length and check for bounds 
08 AC DS Q10A 435 TSTL SCA_DISP(AP) 
28 19 Q10D 436 BLSS 
14 AC 08 AC D1 O10F 437 CMPL SCA_DISPCAP) ,MAX_DISP(AP) 
21 14 #9114 438 BGTR 9008 
67 20 20 3A 0116 439 LOCC #SPACE ,#namelen, (R7) 
1 aw % Bite re SUBL3 RO,#namelen,R1 
Bie rk ; Call PASSWRITESTR to actually write the value to the buffer 
51 DD O11E 444 PUSHL R11 ; pass name Length 
Oc AC ODD O1S8 445 PUSHL FLD_DISP(AP) 3; pass field width 
04 51 D1 Ole 446 CMPL R1,84 3 pass by value or reference 
04 15 0126 447 BLEQ =-:'110 
57 DD 0128 448 PUSHL R7 : by reference 
02 11 O12A 449 BRB 111$ 
bist 450 110$: 
67 DD O12C 451 PUSHL (R77) ; by value 
Bist 128 111$ 
04 AC DD gf 45 PUSHL FSB_DISP(AP) 
FF62 CF 0 FB 0131 454 CALLS #4,PAS$WRITESTR 
04 0136 455 RET 


6 1 
PAS$IO_OUTPUT + PASCAL RMS Linkage 18-SEP-1984 02:07:46 VAX/VMS Macro v04-00 : 9 
v02-000 ° green one bo :ga58 — 


$ 4 PASCAL.SRCJPASIO3.MAR; 1 (1) 
0137 $28 : 
oi 7 457 $00 
7E 83A4 BF 3C 0137 458 MOVZWL #*X83A4,-(SP) 
7E 0090 C6 9A 013C 459 MOVZBL <FSB$C_BLN+RABSC_BLN+FABSB_FNS>(R6) ,-(SP) 
0088 C6 DD 0141 460 PUSHL <FSBS$C_BLN+RABS$C_BLN+F ABSL_FNA>(R6) 
Q0000000'GF 03 0145 9461 CALLS #3,G*PASS$SIOERROR 
014C 106 ; 
Q014C 463 ; 
vaca bP tee -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
014C 466 : RHRRHAAAEETEE Eee Ee 
014C 8467 ; * * 
014C 468 ; *  PASSWRITEINT * 
014C 469 ; * * 
014C 470 ; HERRERA 
014C 471 ; 
014C 472 ; Writes an integer right justified in the designated field width. 
014C 473 ; If the field width is less than the minimum the minimum field width is 
014C 474 ; used. If the integer won't fit in the designated field width then the 
014C 475 ; amount needed is used. If the field width used will overflow the buffer | 
014C 476 ; a runtime error occurs. 
014C 477 ; : 
014C 478 ; Argument offsets 
014C 479 ; 
014C 480; AP ; number of arguments (4) 
00000004 014C 481 FSB_DISP = 04 ; FSB address 
00000008 014C 482 INT_DOISP = 08 ; integer value 
Q000000C 014C 483 LD_DISP = 12 : field width (by value) 
00000010 O014C 4654 NOT_DISP = 16 ; (not used) 
014C 485 ; 
014C 486 ; Other constants | 
014C 487 ; | 
00000001 014C 488 IMINP = 1 ; minimum field width for 
014C 489 ; positive integers 
00000002 014C 490 IMINN = 2 ; minimum field width for 
014C 491 ; negative integers 
00000014 014C 492 IMAX = 20 ; maximum field width needed 
pi6e $27 ; for integers 
4 
O3FC O14C 495 -ENTRY PASSWRITEINT, *M<R2,R3,R4,R5,R6,R7,R8,R9> 
56 04 AC DO O16E 496 MOVL FSB_DISP(AP) ,R6 : R6 =address of FSB | 
56 DD 0152 497 PUSHL R6 
Q00000000'GF 01 FB Bice 138 CALLS #1,G*PASS$WRITEOK 
0136 259 ; Make room for descriptor on stack 
5E 08 C2 0158 206 SUBL2 #DSC$C_S_BLN,SP ; 
58 SE 00 Rize ab MOVL SP,R8 ; R8 = acdress of descriptor 
gies 202 ; Check for minimum field width (1 for positive, 2 for negative) 
53 Oc AC DO 0161 507 MOVL FLD_DISP(AP) ,R3 ; R3 = field width 
08 AC D5 0165 508 TSTL INT DISPCAP) 3 test sign of value 
OA 19 0168 509 BLSS 1108 ieee 
3194 510 ; positive value — 
53 01 D1 O16A~ 511 CMPL #IMINP,R3 ; use at least minimum 
OD 15 Ul6D 512 BLEQ 1208 


H 1 
/PAS$IO_ OUTPUT ; PASCAL RMS Linkage 16-SEP-1 AX/VMS Macro V04-00 Page 10 
v04-000 . Bren 9Be B5:ge 185 PR AS LMS eae TPAS TOS MAR alee? | | 
53 01 DO \¢f 513 MOVL 1 lle 
08 11 0172 le BRB 120$ 
174 15 1108: 3 negative value 
53 oe D1 174 516 CMPL 4S aaa : use at least minimum 
0 15 0177 517 BLEQ 120$ 
53 02 dO 0179 218 MOVL #IMINN,R3 
017C 19 1208: ; R3 = field width 
017C 520; 
Bie 2 1 ; Convert number to character string 
yy Ce 6 cs 8ict 3 : SUBL3 (R6),FSBSL_LST(R6),R7 ; R7 = number of bytes Left in Line 
57 53 pi 0181 524 CMPL = R3__ RP 
09 15 0184 525 BLEQ ©: 125 
56 DD 0186 526 PUSHL R6 
OOO00000'GF 01 FB Ht ese 1258 CALLS #1,G*PASSBUFFEROVER ; buffer overflow | 
68 53 BO O18F 529 MOVW R3,DSC$W_LENGTH(R8) ; pass field width 
04 AB 66 DO 0192 530 MOVL Ré), DSCSA_POINTER(R8) ; pass buffer address 
58 DD 0196 531 PUSHL 3 pass descriptor address 
08 AC DD 0198 532 PUSHL rat DISPC(AP) 
O0000000'GF O02 FB 0198 533 CALLS #2,G6*FOR RSCNV.. OUT_I 
05 50 E€9 O1A2 534 LBC RO,130$ 
66 53 CcO QO1A5 535 ADDL2 = R3,(R6) ; update file pointer 
% Ti pias 26 BRB 199$ 3; exit, conversion succeeded 
O1AA 538 ; Bad conversion; use a larger buffer and try again 
O1AA §=6539; 
O1AA «540 =: 1308: 
68 14 BO OQ1AA 541 MOVW #IMAX,DSCS$W_LENGTH(R8) ; pass buffer Length 
5E 14 C2 OAD 542 SUBL2 #IMAX,SP ; make room for buffer on stack 
59 SE dO 0180 543 MOVL SP, 
04 AB 59 DO 0183 544 MOVL R9,DSCSA_POINTER(R8) ; pass buffer address 
58 DD O1B7 545 PUSHL R8 3; pass descriptor address | 
08 AC DD 0189 546 PUSHL INT_DISPCAP) 
00000000'GF 02 FB a1 547 CALLS #2, on orseny _OUT_I 
1B 50 E9 OIC 548 BLBC RO, 
69 14 20 38 O1C6 549 SKPC #SPACE , WIMAX, (RI) : skip se do spaces 
QO1CA 550 ; RO = number of remaining 
O1CA 551 3 characters 
O1CA 22¢ ; R1 = address of remaining 
Q1CA 55 ; characters 
57 50 D1 OI1CA 554 CMPL RO,R7 ; check if enough room 
09 15 O1¢D 555 BLEQ =: 146$ 
56 DD Bion 556 PUSHL R6 
00000000 ' GF 01 FB BiB 22f 140$ CALLS #1,G*PASSBUFFEROVER ; buffer overflow 
00 86 61 50 28 0108 559 mMovc3 RO, i} a(R6) ; move string to output buffer 
66 53 DO O1DD 560 MOVL R3,( ; update file pointer 
0O1E0 561 # 199%: 
04 0O1E0 266 RET 
O1E1 563 ; ’ 
01E1 564 ; Output conversion error 
0O1E1 565 ; 
1€1 296 
7E B3A4 BF 3¢ 1€1 6 * Mov ZWL O#*X83A4,-(SP) 
7E 0090 C6 9A 1E6 568 MOVZBL <FSBS$C _BLN+RABSC _BLN+F ABSB_FNS>(R6) ,~(SP) 
0088 C6 DD O1EB 569 PUSHL <FSBSC~ “BLN+RABSC_ “BLN+F ABSL— _FNA>(R6) 


ec —_ — a 


| .-4 
PAS$1O_OUTPUT ; PASCAL RMS Linkage 16-SEP-1984 : AX/VMS v04-00 P 
-voe=000 , ~oEE 1984 05:52:35 PRAS EMT eae TeAL OS MAR = 
00000000'GF 03 FB oir 270 CALLS #3,G*PASSIOERROR 
1F6 206 : 
ea 1h t? -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
0O1F6 $75 : HERAT 
O1F6 576; ® * 
O1F6 577 : * PASSWRITEDOUBE * 
O1F6 578; * * 
O1F6 579; RHEREKAEAEREEE ERE 
O1F6 580 ; 
O1F6 23) ; Write out a double precision number in ‘E' format. A minimum 
O1F6§ 5 ¢ ; field width of FMIN is used. 
Q1F6 583 ; 
O1F6 584 ; Argument offsets 
O1F6 585; 
O1F6 586 ; ; number of arguments (4) 
00000004 O1F6 587 FSB_DISP = 04 ; FSB address 
00000008 O1F6 588 DOB_DISP = 08 ; double number (by reference) 
0000000C¢ Bite 282 FLD_DISP = 12 : field width (by value) 
01F6 591 : Other constants 
01F6 236 : 
00000008 Biee 237 FMIN = 8 3 mimimum field width 
003¢ OF 6 398 , .ENTRY PASSWRITEDOUBE,“M<R2,R3,R4,R5> 
aire rad : Make room for descriptor and double precission value on stack 
SE 10 C2 O1FB 599° SUBL2 #<DSC$C_S_BLN+8>,SP 
51 5E DO O1FB 600 MOVL SP,R1 Ri = descriptor address 
08 Al 08 BC 70 O1FE 601 MOVD ad0B DISP(AP) ,DSC$C_S BLACRI): Be value on stack 
5 01 00 0203 602 MOVL #1,R5 ; set 
0010 31 0506 oh? BRW PASSUREALE 3; jump sy common code 
0209 605 : RERKATAETAATA ERE e 
0209 606; * * 
0209 607; * PASSWRITEREALE * 
0209 608; * * 
0209 609 ® RETA 
0209 610; 
0209 611 ; Write a real number in ‘E* format. A minimum field width of EMIN is 
0209 ols 3; used. 
$503 613 ; 
0209 614 ; Argument offsets 
8588 615 ; 
0209 616 ; AP ; number of arguments (4) 
00000004 0209 617 FSB_DISe = 04 ; FSB address 
00000008 0209 618 REL_DISP = 08 ; real number (by value) 
0000000C 0209 619 FLD_DISP = 12 : field width (by value) 
00000010 OS 08 $60 NOT_DISP = 16 3; (not used) 
| 0209 ° ¢ ; Other constants 
00000008 Ht 6 , . EMIN = 08 : minimum field width 
003¢ 5 $9 626 .ENTRY PASSWRITEREALE,“*M<R2,R3,R4,R5> 


PAS$10_ OUTPUT 
v04-000 


-— 

~ = 

08 Al 08 AC 

55 = 00 

52.04 ac 
Q0000000'GF 01 

5 OC AC 

54 53 07 

06 

53 (08 

54S s«OO 

50 08 A2 6¢ 
~~ SD 

09 

52 

00000000'GF 01 

61 53 

04 Al 62 

01 

54 

51 

08 Al 

55 00 

OE 

QO000000'GF 04 
OD 5 

62” 53 


OOCOOD00'GF 04 
FO 


oonor 


ouwonm 


PAAR AAAAASAAASAAAAASAAAAAA AAD PFACAAAAAO 
DD PPP TU BB SE BE ENA ANIIIinonory) 


PED GT & BS EE ANNIE III PON NINID 2 OO OO OO OS SS ODOC 
DWIVIHA OP SMOM OONVOMDAAASOOWOM PACAA "SO OOOOOOOOOOVOEO -MWDOOw 
WR OOONAUE WN 0 OD NAF WIN OC OONOULS WN -OOOon 
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; PASCAL RMS Linkage ’ 1 ~SEP-1 138% 9g: gr: 48 ryder v04-00 Page 


SEP=19 PASCAL SRE IPAS 103.MAR; 1 


Make room for descriptor and double precision valu® on stack 
SUBL2 #<DSCS$C_S_BLN + 8>,SP 
MOVL 


CVTFD REL DISPC(AP) ,.DSC$C_S_BLN(R1); put value on stack 
MOVL #0,R5 i set flag 


5>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
The code below is common to both PASSWRITEREALE and PASS$WRITEDOUBE. 


After the double precision value is placed on the stack there is no 
difference in the ways the values are converted. 


3 >> >>> >>> >>> >> >>> >>> >>> D> >> >> DD >> D> >>> >>> >>> D> >>> >> >>> >>> >>> >>> >>> DD DDD 


” PASSWREALE: 
MOVL FSB_DISP(AP) ,R2 ; R2 = address of FSB 
PUSHL 


CALLS #1,G*PASSWRITEOK 

> Check field width and adjust if necessary 

MOVL ace Ag gf R3 ; a = field width 

se +i +! alt oR4 : = number of digics to right 


prone if large enough field width 
MOVL SERIN, R3 else set to minimum value 


MOVL #1,R4 ; and one digit to the right 

; Check for buffer overflow and output the value 

110$: 
SUBL3 (R2) ,FSBSL_LST(R2) ,RO 
CMPL = R3,, RO 
BLEQ 1208 
PUSHL R 
1208 CALLS #1,G*PASSBUFFEROVER ; buffer overflow 

MOVW R3,0SC$W_LENGTH(R1) ; store string Length 
MOVL (Re), DSCSA_POINTER(R1) ; store string address 
PUSHL ; scale factor 
PUSHL Ra :; digits in fraction 
PUSHL R1 
PUSHAL DSC$C_S_BLN(R1) ; descriptor address 
CMPL #0,R5 ; check for single or double 
BNEQ 1258 
CALLS #4,G*FORSCNV_OUT_E 

128$: 
BLBC RO,910$ 
ADDL2 = R5,(R2) 
RET 

1258: 


CALLS #4,G*FORSCNV_OUT_D 
BRB 128$ 


: P 
; Output conversion error 


K 1 
PAS$10_OUTPUT : PASCAL RMS Linkage 16=SEP=1984 02 97:46 VAX/VMS Macro v04-00 
v04-000 ° mie) 7 5 33:3 PASCAL. SRCIPASIO3.MAR: 1 


7 684 ; 
6 73 685 910$: 
7E SAG BF HS 7 686 MOVZWL #*X83A4,-(SP) 
7E 0090 C A Oe7A 687 MOVZBL <FSB$C_BLN+RABS, _BLN+FABSB_FNS>(R2) ,-(SP) 
0088 C DD O27F 688 PUSHL <FSBS$C_BLN+RAB$C_BLN+F ABSL_FNA>(R2) 
00000000'GF 0 FB 8 83 689 CALLS #3,G*PASSIOERROR 
BA 690 ; 
- Q2BA 691; 
soma oA 636 -PSECT _PASSCOCE, PIC,EXE,SHR,NOWRT 
028A 694 : RRA HHKETAAEEE REET 
8 oA 695 ; * * 
A 238 ; * PASSWRITEDOUBF * 
028A 697 ; * * 
028A 698 ; HERE Kee eee 
028A 699 ; . 
028A 700 ; Writes out a double number in fixed format. 
028A 701 ; 
028A re ; Argument offsets 
028A 703 ; 
028A 704 ; AP ; number of arguments (4) 
00000004 O28A 705 FSB_DISP = 04 ; FSB address 
00000008 O28A 706 DOB_DISP = 08 ; double \ \lue (by reference) 
0000000C 028A 707 FLD_DISP = 12 : field width (by value) 
00000010 028A 708 DiG_DISP = 16 ; digits to right of decimal 
028A 709 i point (by value) 
028A 710; 
028A 711 ; Other constants 
028A re 3 : 
00000003 O28A 71 FMIN = 3 3 minimum field width 
0000002A Osea at FMAX = 42 3 maximum field width 
007¢ OSee rig -ENTRY PASSWRITEDOUBF ,“M<R2,R3,R4,R5,R6> 
| osac at ; Make room for descriptor and double precision value on stack 
| SE 10 C2 028C 720 SUBL2 #<DSC$C_S_BLN+8>, SP 
s 5 DO O28F 721 MOVL SP,R1 ; R1 = address of descriptor 
08 Al 08 BC 70 0292 722 MOVD @D0B DISP(AP) ,DSC$C_S_BLN(R1); put value on stac 
000 31 0297 723 BRW PASSQREALF ; jump to common code 
| 029A 724 ; 
029A 725; Kee eeee eee eeeeeee 
029A 726; * ® 
B53A 727 ; * PASSWRITEREALF * 
029A 728; “ * 
029A 183 : RHEE EERE eee 
029A 730; ; : ’ 
029A i) 3; Writes out a real number in fixed format. 
029A 7 ¢ ; 
OS eA 734 ; Argument offsets 
S59A i393 3 AP 3; number of arguments (4) 
00000004 029A P36 FSB_DISP = 4 ; FSB address 
00000008 029A 737 REL_DISP = 08 ; real number (by value) 
0000000C 8 9A = 738 FLD_DISP = 12 3 field width ; 
00000010 9A 8739 DIG_DISP = 16 ; digits to right of decimal 
029A 740 ; point (by value) 


~~ 
FN 


t 3 
PAS$IO_OUTPUT ; PASCAL RMS Linkage 16-SEP=1 AX/VMS Macro V04-00 
ita ti ° -SEP-19 3b 88: 93:3 PASCAL.SRC ReIP PASIO3.MAR;1 
Roan Fed oth 
° e tant 
90000003 059A r§ Poms aa * inimum field width 
- ; minimum fie idt 
0000002 059A 745 EMAX = 42 ; maximum field width 
8 og ; (sign + point + 40) 
007¢ 0 9A 748 : .ENTRY PASSWRITEREALF ,“M<R2,R3,R4,R5,R6> 
8 4! £39 Make room for descriptor and double precision value on stack 
5E 10 $3 029C te SUBL2 #<DSC$C_S_BLN + 8>,SP 
7). 5S «680 Gee 6 6f5 MOVL P,R1 Ri = address of descriptor 
08 Al 08 AC 56 BSAs et. CVTFD REL _DISPC(AP) ,DSC$C_S _BLNiR1); store value on stack 
bear £36 5>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>2>>>> 
O2A7 758 : The code below is common to both PASSWRITEREALF and PASS$WRITEDOUBF. 
Q2A7 759 ; After the double precision value is placed on the stack there is no 
OSAy £60 ; difference in the way the values are converted. 
BSAy P66 5 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
O2A7 764 : Check field widths and adjust if necessary 
O2A7 765: 
O2A7 766 PASSWREALF: 
56 04 AC DO O2A7 767 MOVi FSB_DISP(AP) ,R6 ; R6 = address of FSB 
56 DD O2AB 768 PUSHL 
00000000'GF 01 FB O2AD 769 CALLS #1,G*PASS$WRITEOK 
53 OC AC DO 0284 770 MOVL FLO DISPCAP) ,R3 ; R3 = field width (p) 
8 Al 73 0288 77% TSTD DSCSC_S_BLN(R1) ; check if positive 
OE 19 0288 re BLS3 105$ ~ 
00 B86 20 00 O2BD 77 MOVL #SPACE ,a(R6) : if positive force blank 
4 AC DD 02C1 774 PUSHL Sy DISP CAP) 
FD71 CF 01 FB 02C4 775 CALLS 1,PASSPUTTXT 3; write out blank 
53 D7 02C9 776 DECL 40 ; adjust field width by 1 
02CB8 777 105$: 
54 10 AC DO O2CcB 778 MOVL DIG_DISPCAP) ,R4 ; R4 = digits to right (q) 
54 DS O2CF 779 TSTL R4 q > 0? 
02 18 0Q2D1 780 BGEQ 110$ 
54 D4 Q2D3 781 CLRL RG 3 qa 3:20 
pgd3 782 110$: 
3°. 3 % ¢3 ees 783 SUBL3 R4,R3,RO0 
02 50 O01 St re CMPL RO,#2 3 p > q+2? 
04 18 O2DC 785 BGEQ 120$ 
ae 3 es 5443 6 ADDL3 R4,#2,R3 : p := qe2 
0et2 ree > Set up descriptor and call conversion routine 
0 E2 790 ° 1208: ree 
55 08 A6 66 (C3 E 791 SUBL3 (R6),FSBSL_LST(R6),R5 ; RS = number of bytes left in Line 
55 53 D1 OE 198 CMPL = RBS 
09 15 Q2EA 79 BLEG )3=s«4125$ 
56 DD EC 794 PUSHL R6 
00000000 ' GF 01 FB EE 12 1258 CALLS #1,G*PASSBUFFEROVER ; buffer overflow 
61 53 BO O2FS 797 " MOVW  —-R3,, DSC $W_LENGTH(R1) 


ao 
— 


m 1 
PAS$10_ OUTPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07:4 AX/VM 
‘WOe=000 : SE Ba 03:95:3 CAL. SRESPASS Sing 


4-00 
~SEP-19 PASCAL. SRCJPASIO3.MAR; 1 


eed 
WwW 


04 Al 66 DO O2F8 798 MOVL (R6) ,OSCSA_POINTER(R1) 
00 dD 4 Re a, PUSHL #0 ; scale factor 
¢ DD Ff B30 PUSHL RG 3; digits in fraction 
1 OD 0 01 USHL 1 3; string descriptor 
08 Al OOF b¢ 4 PUSHAL DSC$C_S_BLN(R1) ; value 
00000000 ' GF 04 rs 0 0 CALLS #4,G*FORSCNV_OUT_F 
66 83 O30F BOS ADDL2 RS. (RO) d he fi i 
; update the file pointer 
ef O32 806 B19 “ a 
th 43 ; Bad conversion; use a buffer of subfieldt+overflowsize and try again 
51 SE DO Ble £9 1308: ov sP.Rt R1 = descri dd 
‘ $ = descriptor address 
53 54 BA Ch OOSI7 12 ADDL3  MEMAX,RG,R3 : RS = new buffer size 
— oe @2 Gm 8 SUBL2 R3,SP 3 make room on stack 
61 53 BO O3I1E 814 MOVt' R3,0SC$W_LENGTH(R1) 
04 Al SE DO 0321 815 MOVL SP,DSCSA_POINTER(R1) ; buffer address 
00 DD base 816 PUSHL #0 
54 DD 0327 817 PUSHL R4 :; digits in fraction 
51 OD 0329 818 PUSHL R1 ; descriptor address 
08 Al DF QO32B 819 PUSHAL DSC$C_S_BLN(R1) ; value address 
00000000'GF 04 FB O32E 820 CALLS #4,G*FORSCNV_OUT_F 
1B 50 a 0335 3821 BLBC ,910$ 
e 3 ow 0338 822 SKPC #SPACE ,R3, (SP) ; skip leading blanks 
3 3 1 O33¢ 82s CMPL RO,RS 
09 15 O33F 824 BLEG 1408 
56 CD 0341 825 PUSHL R6 
Q00000000'GF 01 FB te Bs8 1408 CALLS #1,G*PASSBUFFEROVER ; buffer overflow 
00 B86 61 50 28 OQO34A 828 MOVC3 RO,(R1),a(R6) ; store string 
66 53 DO O34F 829 MOVL R3,(R6) ; update file pointer 
0352 830 1998: 
04 B326 831 RET 
035 S36 3 
0353 833 ; Output conversion error 
0353 834 ; 
O32 835 9108: 
7E B3A4 BF 3c.) 0035 836 MOVZWL #*X83A4,-(SP) 
7E 0090 C6 9A 0358 837 MOVZBL <FSB$C_BLi+RABSC_BLN+FABS$B_FNS>(R6) ,-(SP) 
8 C6 DD 035D 838 PUSHL <FSB$C~BLN+RABSC BLN+F ABSL ~FNA>(R6) 
00000000'GF 03 FB 0361 839 CALLS #3,G*PASSIOERROR 
0000) aE are -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
$368 bce : REeeeeeeeeeeeereeere 
0368 843; ® ® 
0368 844 ; *  PASSWRITEHEX * 
0368 845 ; * * 
0368 846 ; eeeeereeeeeeeeeeeeee 
0368 ret! ; : ; f f é 
O38 48 ; Writes out a longword in hexadecimal form. Leading zeros are printed 
036 849 ; up to eight places. 
0368 50 ; 
b30 51 ; Argument offsets 
036 2¢ ; 
036 23.3 AP ; number of arguments (4) 
00000004 0368 54 FSB_DISP = 04 ; FSB address 


: Other 


constant 


HMAX = 8 
OVERFLOW 


: Make room for 


$25: 


PAS$1O_OU1PUT : PASCAL RMS Linkage 
yOeL000 8 
0000008 036 855 
BRR OE 036 856 
000001 A 57 
6 58 
6 59 
8 68 60 
00000008 6 61 
00000070 8 6 66 
6 6 
OOFC 8 68 64 
56 04 ac + 6A 2 
OOOO00UC 1° GF 01 FB g35h 0S 
OC AC 05 tia 868 
65 15 O37A 869 
037C 86870 
037C 3871 
037C a6 
SE 08 C2 O37C 87 
52. SE v0 OQO37F 874 
62 OC AC B80 0382 875 
04 A2 98 DO 0386 876 
5 DD O38A 877 
08 AC DD O38C 878 
00000000 ' GF 02 FB O38F 879 
66 C AC CO 0396 880 
04 B82 2A 91 QO39A 881 
03 13 0O39E 882 
0035 31 O3A0 883 
03A3 884 
66 OC AC C2 O3A3 885 
62 10 60 Q3A7 886 
5E 10 C2 Q3AA 887 
57 SE 00 O3AD 888 
04 A2 57 «+00 0380 889 
52 DD 0384 890 
08 AC OD 0386 891 
00000000 ' GF 02 FB 0389 B36 
67 10 20 38 O3CO 89 
54 CAC C3 Q03C&4 894 
51 54 C€O O3C9 895 
00 B6 61 OC AC 28 O3CC 896 
66 OC AC CO 0302 897 
09. =o 8308 $38 
308 99 
54 08 CE 0308 900 
000004C6"EF 16 O30B 901 
04 0361 90 
O3E2 90 
O3E 904 
000003E 905 
O3E 906 
O3E 907 
O3E 908 
te 909 
O3€ 910 
O3E 911 


-PSECT 


gtereere 


16-SEP-1984 7:4 AX/VMS Macro V04-0C Page 16 
ase 1 88 93:38 PASCAL. SRCJPASIO3.MAR; 1 ° (1) 
= 08 ; value to be printed 
= 12 i field width (by value) 
= 16 ; (not used) 
s 
3; maximum zero fill field width 
SIZE = 16 : maximum overflow buffer size 
PASSWRITEHEX, “M<R2,R3,R4,R5,R6,R7> 
FSB_DISPCAP) ,R6 : R6 = address of FSB 
#1 ,G*PASS$WRITEOK 


FLO_DISP(AP) 
$40 ; exit if field width <= 0 


descriptor on stack 


#0SC$C_S_BLN,SP ‘ 

P ; R2 = address of descriptor 
FLD_DISP(AP) ,DSCSW_LENGTH(R2); store Length 
(R6),DS.$A_POINTERTR2) ; store buffer address 


VAL_DISP(AP) 
#2,G*FORSCNV_OUT_2 
FLD_DISP(AP)> (R6) 


23] SDSCA, POLNTERIRED test overflow 
$35 

FLD_DISPCAP), (R6) ; restore pointer 
#OVERF LOWSIZE ,DSC$W_LENGTH(R2) 
#OVERFLOWSIZE,SP 

SP,R7 

R7 .DSC$A_POINTER(R2) 

VAL_DISP(AP) 

#2, G*FORSCNV_OUT_Z 

#SPACE ,MOVERFLOWSIZE.(R7); skip blanks 
FLD _DISP(AP) ,RO,R4 
FLO_DISP(AP),(R1),@(R6) ; deposit string 
FLO_DISP(AP) , (R6) : fix up pointer 


#HMAX RG 
ZERO_FILL_R3 


PASSCODE, 


eeeerrereeree 


PIC, EXE ,SHR ,NOWRT 


* ‘ 
* PASSWRITEHEXD * 
x * 


eeretere 


tetererereres 


v04- 


rapa avr 


; PASCAL RMS Linkage 


16-SEP-1984 07:4 AX/VMS Macro v04-00 Page 17 
-SEP=1984 §5:95:5 PASCAL.SRCJPASIO3.MAR; 1 . (1). 


Be 


O3E 912 ; 
E 318 ; Write out a double precision value (guadword) in hexadecimal form. 
: aie ; Leading zeros up to 16 places are printed 
O3E 916 ; Argument offsets 
O3E 917 ; 
O3E 918 ; AP ; number of arguments (4) 
00000 OSE 919 _DISP = 04 ; FSB address 
90000 O3E 920 VAR_DISP = 08 ; value address 
00000 O3E 921 _DISP = 12 ; field width by value 
00000 Ore 4 ¢ NOT_DISP = 16 ; (not used) 
O32 ; Other constants 
00000008 O3E2 926 HMAX = 8 ; maximum field for leading zeros 
0 O3E2 927 eENTRY PASSWRITEHEXD,*M<> ; 
50 OC AC 08 O3E4 928 SUBL3 #HMAX,FLD_DISP(AP),RO ; RO = field width low bytes 
06 O3E9 44 BGTR 11 
50 Oc AC O3EB 930 MOVL FLD_DISPC(AP) ,RO 
16 O3EF 931 BRB 1118 
O3F1 o36 ; 
O3F1 933 ; Print low order longword 
O3F1 934 
O3F1 935 1108: 
00 DD O3F1 936 PUSHL #0 
50 DD O3F3 937 PUSH RO 
50 04 08 AC C1 O3F5 938 ADDL VAR_DISP(AP) ,#4,R0 
60 DD O3FA 939 PUSHL (RO) ; low order longword 
04 AC DD O3FC 940 PUSHL FSB_DISP(AP) 
FF64 CF 04 FB O3SFF 941 CALLS #4, PAS$WRITEHEX 
50 08 00 beos ot MOVL #HMAX ,RO : field width high bytes 
0407 944 ; Print RO digits of high order longword 
0407 945 ; 
0407 946 1118: 
00 DD 0407 947 PUSHL #0 
50 DD 0409 948 PUSHL RO 
08 BC DD 0408 949 PUSHL a@VAR_DISP(AP) 
04 AC DD O40E 950 PUSHL  FSB_BISP(AP) 
FFS2 CF 04 FB 0411 951 CALLS #4,PAS$WRITEHEX 
04 0416 226 RET 
0417 953; 
0417 954 ; 
00000417 955 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
0417 956; 
0417 957: eeeeeeereeeeeterreeee 
0417 958 ; * * 
0417 959; *  PASSWRITEOCT * 
0417 960 ; * * 
417 961 ; eeeeereeererereeeere 
8617 962 ; 
0417 963 ; Argument offsets 
0417 964; 
0417 965; AP : number of arguments (4) 
00000004 0417 966 FSB_DISP = 04 ; FSB address 
00000008 0417 967 VAL_DISP = 98 ; value to be printed 
O000000C 0417 968 FLD_DISP = 1 : field width 


2 
OUTPUT ; PASCAL RMS Linkage 1 -1984 AX/VMS M o v04-00 
g-st -1984 Z $8: $5: 38 LPASCAL. SR SPASIO3.MAR: 1 
00000010 0417 969 NOT_DISP = 16 3; (not used) 
0417 970; 
0417 971 ; Other constants 
0417 3f¢ : 
0000000B 0417 97 OMA ; maximum field for leading zeros 
00000014 baie aoe OVERFLOUSIZE = 20 ; overflow buffer size 
OOFC 0417 976 -ENTRY PASSWRITEOCT, Stet R3,R4,R5,R6,R7> 
56 04 AC DO 0419 977 MOVL  FSB_DISP(AP).R6 : R6 = address of FSB 
56 DD 041D 978 PUSHL 
O0000000'GF 01 FB O41F 979 CALLS #1 aoe 
OC AC dS $758 +H TSTL FLO D1 DISP CAP) 
65 15 beSe oR BLEQ 3 exit if field width <= 0 
0428 388 ; Make room for descriptor on stack 
0428 984; 
5E 08 C2 0428 985 SUBL2 #DSC$C_S_BLN,SP 
-.- S Bees 986 MOVL 
62 OC AC BO 0431 987 MOVW FLO DISPCAP) ,.DSC$W_LENGTH(R2); store Length 
04 A2 66 DO 0435 988 MOVL (ae), DSCSA_ POINTERTR2) ; store buffer address 
52 DD 0439 989 PUSHL R2 
08 aC DD 0438 990 PUSHL VAL_D 
00000000 ' GF 02 FB O43E 991 CALLS #2, onroRsc CNV _OUT_O 
66 C AC CO 0445 99 ADDL2 FLO DISPC(AP)> (R6 
04 B2 oA 91 0449 99 CMPB ++} Nad aDSC$A_ -POINTER(R2); test overflow 
03 13 0440 994 BEQL $55 
0035 31 O44F 995 BRW $65 
0452 996 $55: 
66 OC AC C2 0452 997 SUBL2 FLD_DISP(AP),(R6) ; restore pointer 
62 14 BO 0456 998 MOVW  #OVERFLOWSIZE, DScsu_ LENGTH(R2) 
5E 14 C2 0459 999 SUBL2 +6 |, deepens 
57 SE DO O045C 1006 MOVL SP, 
04 A2 57 DO O45F 1001 MOVL RP BSCSA_POINTER(R2) 
52 DD 0463 1906 PUSHL R2 
08 AC DD 0465 100 PUSHL VAL_DISPCAP) 
O0000000'GF 02 FB 0468 1004 CALLS #2,G*FORSCNV_OUT 
67 14 20 38 O46F 1005 SKPC #SPACE , OVERFLOW size, (R7); skip blanks 
54 AC C3 0473 1006 SUBL3 FLD_DISP(AP),RO,R4 
51 54 CO 0478 1007 ADDL R4,R1 
00 B6 61 OC AC 28 0478 1008 MOVC FLD_DISP(AP),(R1),@(R6) ; deposit string 
66 OC AC CO 0481 1009 ADDL2 FLD_DISP(AP), (R6) ; fix up pointer 
09 11. 0485 1010 BRB $43 
0487 1011 $65: 
54 OB CE 0487 1018 MNEGL #OMAX,R 
000004c6'EF 16 048A 101 ZERO OF TCL. R3 
04 0490 1014 $43: RET 
aed 1015 ; 
491 1016; 
00000491 1017 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
0491 1018 ; 
0491 1019 : Reeereerereeeeereret 
0491 1020 ; , * 
0491 1021 ; * PASSWRITEOCTD * 
0491 1022 ; + * 
0491 10 : eeeeeeeerereeererere 
0491 + aa Bie : 
0491 1025 ; Write out a double precision value (quadword) in octal format. 
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PAS$IO_ OUTPUT > PASCAL RMS Link 16-SEP-1984 02:07:4 AX/VM - 
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ot} 18 § ; Leading zeros up to twenty-two places are printed. 
0491 1028 ; Argument offsets 
0491 1086 ap ber of (4) 
; 3; number of arguments 
00000004 0491 1031 FSB_DISP = 04 : FSB address * 
00000008 0491 1036 VAR_DISP = 08 ; value address 
0000000C 0491 103 FLD_DISP = 12 ; field width by value 
00000010 0491 1034 NOT_DISP = 16 ; (not used) 
0491 1035 ; 
0491 1036 ; Other constants 
be3) 1037 ; 
00000008 984 See OMAX = 11 3; maximum field for leading zeros 
0000 0491 1040 -ENTRY PASSWRITEOCTD,“*M<> 
50 OC AC 0B C3 0493 1041 SUBL3 #OMAX,FLD _DISPCAP), RO ; RO = field width low bytes 
06 14 0498 Ho BGTR 
50 OC AC DO 049A 104 MOVL FLD_DISP(AP) ,RO 
16 11 QO49E 1044 BRB 1118 
04A0 1045 ; 
04A0 1046 ; Print low order Longword 
Q4A0 1047 ; 
04A0 1048 1108: 
00 ODD OQO4A0 1049 PUSHL #0 
50 DD O4A2 1050 PUSH RO 
50 04 08 AC C1 Q4A4 1051 ADDL VAR_DISP(AP) ,#4,R0 
60 DD O04A9 1926 PUSHL R07 ; low order longword 
04 AC DD O4AB 105 PUSHL FSB 
FF64 CF 04 FB O4AE 1054 CALLS #4, PASSURITEOCT 
50 0B v0 noes 1922 MOV! #OMAX,RO : field width high bytes 
0486 1057 ; Print RO digits of high order longword 
0486 1058 ; 
0486 1059 1118: 
00 DD 0486 1060 PUSHL #0 
0 ODD 0488 1061 PUSHL RO 
08 BC DD O4BA 1308 PUSHL a@VAR_DISP(AP) 
04 AC DD O4BD 106 PUSHL FSB_BISP(AP) 
FFS2 CF 04 FB O04CO 1064 CALLS #4,PAS$WRITEOCT 
04 04C5 1065 
04€6 1066 ; 
04C6 1067 ; 
000004C6 1068 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
04€6 1069 ; 
04C€6 1070 : eeeeeeeerereeerereee 
04€6 1071 ; * . 
04C6 1376 3 * ZERO_FILL_R3 * 
04C6 1073 ; * * 
04C6 1074; eeeeeerreererereeres 
04C6 1075 ; : d 
04C6 1076 ; JSB routine to zero-fill octal and hex output 
04C6 1077 ; 
04C6 1078 
04C6 1079 FERO_ FILL_R3: ; entry point 
52 OC AC CE 04C6 1080 RE GL FLD_DISP(AP) ,R2 ; get length 
54 6 Di Q4CA 1081 CMP Rs R4 
03 18 O4CD 1082 BGEG © «$86 


E 2 
PAS$1O_OUTPUT : PASCAL RMS Linkage 16-SEP=1986 02:07:46 VAX/VMS Macro v04-00 ~ 
v0z-000 ° Bree rioRe Oo:s0:85 st 


2:2 PASCAL.SRC SPAS $103.MAR 
| 52. 54 DO O4CF 1083 MOVL R4,R2 
53. 04 BC DO 04D2 1084 $30 MOVL @FSB_DISP(AP) ,R3 ; move address to R3 
6342 20 91 0406 1085 $10 CMPB so #SPATE, (R3) CRO] : check next byte for blank 
OC 3 O4DA 1086 BNEQ $20 3; done if not blank 
6342 30 90 O4DC 1087 MOVB #ZERO,(R3)CR2] ; put in zero 
EE 52s FFFFFFFF BF Fe 04E0 1088 AOBLSS #-1,R2,$10 
05 O4E8 1089 $20: RSB 3; return 
O4E9 1090 ; 
04E9 1091 ; 
000004E9 1938 -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
04E9 1093 ; 
04E9 1094 3 RETAKE TERE 
Q04E9 1095 ; * * 
04E9 1096 ; * PASSLINELIMIT  * 
04E9 1097 ; * * 
04E9 1098 $ RETREAT 
04E9 1099 ; 
04E9 1100 ; Sets the Linelimit for a given file. 
04E9 1101 ; 
04E9 1108 : she offsets 
04E9 1103; 
O4E9 1104 ; 3; number of arguments (2) 
00000004 O04E9 1105 SB. DISP = 04 ; FSB address 
00000008 Rees 1159 VAL_DISP = 08 : Linelimit value 
0004 O4E9 1108 =e Pass INELIAIT. “M<R2> 
52 08 AC DO OQ4EB 1109 OVL B(AP),R 
OC A2 04 AC DO O4EF 1110 MOVE StaP). * FSBSL _LIM(R2) 
04 O4F4 1111 RET 
O4F5 1112; 
O4F5 1113; 
wanag *0t Vie -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
O4F5 1116 REAR eee 
O4F5 1117 * * 
O4F5 1118 * PASSPAGE * 
O4F5 1119 * * 
O4FS 1120 RAKE 
O4F5 1121 
ort 1156 Writes a page eject character (1H1 or FORMFEED) to the designated file. 
O4F5 1124 ; Arguments offsets 
04F5 1125 
O4F5 1156 AP 3 tuaber of arguments (1) 
00000004 Bee? Vist FSB_DISP = 04 ; FSB address 
001C O4F5 1162 -ENTRY PASSPAGE, acne R3,R4> 
52 04 AC DO O4F7 1130 MOVL 4 DISP(A P).R R2 = FSB address 
53 0000005C 8F Se | tt bere 1131 ADDL R2, vc SB8C BLN+RABSC BLNS, R3; R3 = FAB address 
54 18 52 1 O50 1138 ADDL R2,#FSBSC_BLN,R4 ; R4 = RAB address 
62 28 AG D1 0507 113 CMPL RABSL ORBFTRA) (R2) 
09 «13 #OS0B 1134 BEQL 10$ 
52 dD O50D 1135 PUSHL R2 . ; 
OOOO00000'EF 01 FB OSOF 1136 CALLS #1,PASS$SWRITELN 3; terminate current Line 
0516 1137 10$: ; 
00 ovDD 0516 1138 PUSHL #0 : fill d 
01 DD 0518 1139 PUSHL #1 : field width 


ret - 
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PAS$IO_OUTPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07:4 AX/VMS Macro v04-00 Page 21 PA 
(02-000 ° reer 1 3B 89:95:58 PAXCUMS Macee  V0n 00 Ret ate |S 


04 1E AS go EO ooiA 1140 BBS #FABSV FIN, FABSB_RAT(R3),20$; check for carriage control 
C DD SiF 1141 PUSHL #FORMFEED ; not FORTRAN 
02. «11 82 1 1326 BRB 30$ 
5 ; 114 20$: 
31 DD O05 1144 PUSHL #ONE ; FORTRAN 
0525 1145 30$: 
52 DD 0525 1146 PUSHL R2 ; FSB address 
FB2F CF 04 FB 0527 1147 CALLS #4,PASSWRITECHAR 
52 DD QO52C 1148 PUSHL R 
QOOOOOOO'EF 01 #=x%FB OS ; 1149 CALLS #1,PASSWRITELN 3; terminate Line 
04 O5 1150 RET 3 return 
0536 1151; 
0536 1126 ; 
0536 1153; 
0536 1154 . END 


PAS$10_OUTPUT ; PASCAL RMS Linkage 16-SEP-1984 0g 302386 orrd yn Macro V04-00 Page 22 
Symbol table -SEP=1984 02:32:2 PASCAL .SRCJPASIO3.MAR; 1 (1) 
| $$. TMP = a PASSWREALE 0000S i> R 08 
$$. TMP2 = BRO noe 4 PASSWREALF 444 A7 R 2 
$10 00000406 R 0 PASSWRITECHAR 0000058 RG 8 
$20 QOOO04ES R 0 PASSWRITEDOUBE 000001F6 RG 0 
$25 QO0003A3 R 0 PASSWRITEDOUBF Son sce RG 02 
$30 44 S464 44 R 0 PASSWRITEHEX 00000368 RG 02 
$35 panenee R 0 PASSWRITEHEXD QOO003E2 RG 02 
$40 00000 4 a 02 PASSWRITEINT 0000014C RG 02 
$43 00000490 R 02 PASSWRITELN reereene 00 
$55 00000452 R 02 PASSWRITEOCT 00000417 RG 02 
$65 00000487 R 02 PASSWRITEOCTD 00000491 RG 02 
CHR_DISP = HS 4 PASSWRITEOK eeeteete a) 
DIG_DISP = 0000001 PASSWRITEREALE 00000209 RG V2 
DOB _DISP = 00000908 PASSWRITEREALF 0000029A RG 02 
DSCSA_POINTER = 00000004 PASSWRITESCAL OOOO00F2 RG 02 
DSC$C_S_BLN = 00000008 PASSWRITESTR G0000098 RG 02 
DSC$W_LENGTH = 00000000 RAB$B_RAC = QOO0001E 
EMIN = 00000008 RABSC_BLN = 00000044 
FABSB_FNS = 00000034 RABS$C_SEQ = 00000000 
FABSB_RAT = QQOO001E RABSL_RBF = 00000028 
FABSL_FNA = 0000002¢ RAB$L_ROP = 00000004 
FABSV_FIN = 00000000 RABSM_TPT = 00000002 
FLD_DISP = 0000000C REL_DISP = 00000008 
AX = 0000002A SCA_DISP = 00000008 
MIN = 90000003 SPATE = 00000020 
FORSCNV_OUT_D eeenenes x 00 TAR = 0000002A 
FORSCNV_OUT_E terenere = X 00 STR_DISP = 00000008 
FORSCNV_OUT_F teeeeeee =X 00 SYSSPUT atexeeee G 02 
FORSCNV_OUT_I terenere =X 00 VAL_DISP = 00000008 
FORSCNV_OUT_O teeenere =X 00 VAR_DISP = 00000008 
FORSCNV_OUT_Z eereeeee =X = =600 ZER = 0000003 
MFEE = 0000000C ZERO_FILL_R3 000004C6 R 02 
F SB$C_BLN = 00000018 
FSBSL_LIM = 0000000C 
FSBSL_LST = 00000008 
SB_DISP = 00000004 
MAX = 00000008 
IMAX = 00000014 
IMINN = 00000002 
IMINP = 00000001 
INT_DISP = 00000008 
LEN_DISP = 00000010 
MAX DISP = 00000014 
NAMELEN = 00000020 
NAM_DISP = 00000010 
NEWENT 00000000 R 02 
NOT _DISP = 00000010 
AR = 00000008 
ONE = 00000031 
OVERFLOWSIZE = 00000014 
| PASSBUF FEROVER eeeeeeee =X 6° 
PASSIOERROR reereene ® 0 
PASSLINELIMIT 000004E9 RG 02 
PASSPAGE QO0004F5 RG 02 
PASSPUTBIN 00000000 Os 
PAS$PUTBINARY 0000000B RG 0 
PASSPUTTXT 0000003A RG 02 


_ PAS$IO_OUTPUT ; PASCAL RMS Linkage i as te 9 0g 39236 
Psect Synopsis =SEP=1984 02:32:2 
tow mene sn: conn eoe + 
: Psect synopsis ! 
ee te ee oot em ae + 
PSECT name Allocation PSECT No. Attributes 
- «ABS . 00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL WN 
S$ Bonne te ( 0.) QO1¢ #1.) NOPIC USR CON ABS LCL N 
PASSCODE 00000536 ( 1334.) 02 ial PIC USR CON REL LCL 
twee nam err enm oe nee ome om om + 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization — 34 00:00:00.08 00:00:00.50 
Command processing 135 00:00:00.45 00:00:01.24 
Pass 252 00:00:08.14 00:00:16.17 
Symbol table sort 0 00:00:00.87 00:00:00.91 
Pass 2 194 00:00:02.86 00:00:04.53 
Symbol table output 12 00:00:00.07 00:00:00.09 
Psect synopsis output 3 00:00:00.03 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 633 00:00:12.50 00:00:23.47 


The working set Limit was 1500 pages. : : 
49931 bytes (98 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 726 non-local and 40 local symbols. 


1154 source Lines were read in Pass 


Ve oroges ing._6! object records in Pass 2. 
ma 


14 pages of virtual memory were used to define cros. 
$e www owweewwoe owe weno coo oenne ¢ 
! Macro Library statistics ! 
Few www wen meme enw eee neene + 


Macro Library name 


Macros defined 


-$255$DUA28: CSYSLIBISTARLET.MLB;2 9 
772 GETS were required to define 9 macros. 


There were no errors, warnings or information messages. 


MACRO/DISABLE=TRACE/LIS=L1S$:PAS103/0BJ=0BJ$:PASIO3 MSRCS:PASIO3/UPDATE=(ENH$:PASIO3) 
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PASCAL.SRCJPASIO3.MAR;1 (1) 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE RD WRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC BYTE 
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